% this is the file used in the lecture about digitizing

% the first few lines are a simple base file for the demo
delimiters ();
proofing:=1;
openwindow 0 from (0,0) to (200,500) at (-40,100);
edges e;
def makechar(expr p) =
 e:=nulledges; addto e contour p; display e on 0; shipout e enddef;
def shiftedright expr x = shifted (x,0) enddef;
tracingonline:=1;
pausing:=1; % the class saw the next lines
tracingedges:=1; % MF will now show all the edges it digitizes
path p; p=(-20,-50)..(-20,50) & (-20,50)..(0,0)..(-20,-50) & cycle;
makechar(p);
makechar(p shiftedright 1/3);
makechar(p shiftedright .501);
makechar(p shiftedright .505);
path q; q=(-20,-49)..(-20,50) & (-20,50)..(0,0)..(-20,-49) & cycle;
makechar(q shiftedright .5);

autorounding:=2; smoothing:=1;
makechar(p);
makechar(p shiftedright 1/3);
makechar(p shiftedright .501);
makechar(p shiftedright .505);
makechar(q shiftedright .5);

end